Public Class adm_default
    Inherits System.Web.UI.Page
    'Protected WithEvents TheHeader1 As adm_header
    Public aUserSession(13) As String
    'Public oUtlis As utils
    Public Const cSESSION_ID = 0
    Public Const cCOMPANY_ID = 1
    Public Const cGAPORTAL_ID = 2
    Public Const cUSER_ID = 3
    Public Const cINCIDCONTEXT = 4
    Public Const cINGIDCONTEXT = 5
    Public Const cLOGINDATETIME = 6
    Public Const cLASTACTIVITY = 7
    Public Const cUSERPERMISSIONSSTRING = 8
    'Public Const cTERMINAL_PIN = 9
    Public Const cROLE_ID = 9
    Public Const cMEMBER_TYPE = 10
    'Public Const cTERMINAL_NAME = 10
    Public Const cTERMINAL_NUMBER = 11
    Public Const cTERMINAL_MARKET = 12
    Dim objdata As New gaValidation
#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            'If aUserSession(objdata.cGAPORTAL_ID) = "000000" Then
            '    TheHeader1.helpaid = "?state=0"
            'ElseIf aUserSession(objdata.cGAPORTAL_ID) = aUserSession(objdata.cUSER_ID) Then
            '    TheHeader1.helpaid = "?state=1"
            'ElseIf aUserSession(objdata.cGAPORTAL_ID) <> "000000" And IsNumeric(aUserSession(objdata.cUSER_ID)) Then
            '    TheHeader1.helpaid = "?state=2"
            'Else
            '    TheHeader1.helpaid = "?state=1"
            'End If
            'TheHeader1.whichpage = 0
            'TheHeader1.pageid = "mainmenu"
            'TheHeader1.iMenuLevel = -1
            'aUserSession = TheHeader1.security()
            ''TheHeader1.webCont = buildWebContext()
            'TheHeader1.StartInterface(0)
            'TheHeader1.webCont = buildWebContext()

        End If
    End Sub
    Private Function buildWebContext() As String
        Dim strHTML As String
        strHTML = "<table align=""center"" cellpadding=""2"" cellspacing=""0"" border=""0"" width=""65%""><tr><td>Welcome to Georgia Global Trade Portal System! "
        If aUserSession(cGAPORTAL_ID) = "000000" Then
            strHTML += "<p>Please select the proper tab in the top navigation bar to manage your products and users.<p>"
        End If
        strHTML += "</p></td></tr></table>"
        Return strHTML
    End Function
End Class
